Set ArgObj = WScript.Arguments

shortcutPath = ArgObj(0)

set filesys = CreateObject ("Scripting.FileSystemObject")

If (filesys.folderExists(shortcutPath)) Then
    set folder = filesys.GetFolder(shortcutPath)
    folder.Delete
End If

WScript.Quit(0)


